object Gen: TGen
  OldCreateOrder = False
  Left = 406
  Top = 320
  Height = 386
  Width = 446
  object NewGen: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 40
  end
  object OldGen: TSQLDataSet
    GetMetadata = False
    CommandText = 
      'SELECT RDB$GENERATOR_NAME FROM RDB$GENERATORS WHERE RDB$GENERATO' +
      'R_NAME=:GNAME'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'GNAME'
        ParamType = ptInput
      end>
    SQLConnection = DM.OldDB
    Left = 128
    Top = 40
  end
  object NewGenId: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.NewDB
    Left = 24
    Top = 105
  end
  object OldGenId: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.OldDB
    Left = 128
    Top = 104
  end
end
